﻿Public Class SourceController
    Inherits BaseController(Of Q7P1TTS.Lib.Source)
    Public Overloads Shared Function load(ByVal PromptText As String, ByVal PromptValue As Integer) As List(Of Source)
        Dim res = load()
        Dim prompt As New Source()
        prompt.ID = PromptValue
        prompt.Name = PromptText
        res.Insert(0, prompt)
        Return res
    End Function
End Class
